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MODULE STRSGET_FREE ( } 4 locate and deallocate dynamic strings 
° [DENT = "1-012" (er STRGETFRE-B3S Edits LeBIOIs 
BEGIN 
i eee eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeereeeeeeereneneeeeeeeeneneeeeneeeeee 


'e ® 
i COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. ‘ 
® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND M * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ® 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE ‘ 
ie TRANSFERRED. * 
oy 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
® 

® 

® 

® 

® 
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3 1 § 
5 1 3 
3 1 ; 
: 1 3 
; 1 : 
3 1 3 
3 1 3 
: 1 5 
; 1 3 
3 1 3 
3 1 3 
3 1 3 
3 1 3 
3 1 3 
; 1 3 
; 1 5 
: : ; 
; 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 3 
3 ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
3 1 !* 3 
H 05 1 LRA Ps 
é 1! : 
; O06 1 3 
§ 00 1 e+ ; 
; O08 } FACILITY: String handling : allocation. : 
: O88 : ABSTRACT: : 
: $08 ez This module contains routines to get and free strings. Within : 
; 0036 1! the STRS facility these operations are performed in-line; . 
a 0037 1! these routines are for outsiders who wish to allocate and ; 
3 : bos ! deallocate strings. : 
; 29 Boe ! : ENVIRONMENT: VAX~-11 User Mode : 
° : BRE ! : AUTHOR: John Sauter, CREATION DATE: 14-MAR-1979 : 
; & Ooée 1 ! MODIFIED BY: 3 
; | «(45 045 1! : 
; 8646 ones 7! 1-091 = Original. JBS 15-MAR-1979 3 
3 (OF 047 1 ! 1-002 = Use the new STR error moqsnges fonversion. of g hput 135giers ; 
+ 648 48 1/ to by-reference will wait until later. ; 
; 49 1 ! 1-003 = Convert the one input HM to lbysteference.. one YTB OMAY-1979 $ 
a 50 1! 1-004 - née J JSB entry points. JBS 22-" : 
ae) 51 1 ! 1-005 = Make the JSB entry y points end. in _R4. JBS 22-MAY-1979 F 
; $ 26 1! 1- $ ~ toy STRLNK.REQ. 04-JUN-19 3 
3 2 1! 1- - Make some minor J ts based on the cade, gories je 12-JUN-1979 3 
3 4 4 1! 1- 8 = Correct some misspelled coamentt. -183,2¢ UN-197 3 
: 5 [5 Ft te - Improve some comments. 9 3 
; 28 2$ 1! 1- 19 - String speedup, status from ree’ and dealoc macros. RW 11- gon 1960 3 
; 57 1! 1-011 = Correct a typo in STRSGET1_DX_R4 (an extra dot). JBS 04-MAR-198 3 
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-0 
: 28 28 1! 1-012 - Change ey TeRnAl, ROUTINE declaration of LIBSSTOP so that oat matches 
s 1 / e ral a 3 declared in macro $STRSSIGNAL_FATAL (without the 
; 60 60 1! NOVALUE attr yte?. This is fallout from a new BLISS seeotlani 
s 61 061 1! LEB 11-May-19 
6 8806 1 !-- 
6 063 1 
64 0064 1 !<BLF/PAGE> 
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| SWITCHES: 


10 
Sep-19Be 12:40:07 Et Tentuesme Sst Ace TFRE-892;1 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


' 
LINKAGES: 


REQUIRE 'RTLIN:STRLNK'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRS$G 


1_DX, 
STRSGET1-DX_R4 : STRSJSB_GETFRE, 
STRSFREET 


STRSFREE1_DX_R4 : STRSJSB_GETFRE; 


INCLUDE FILES: 


REQUIRE ‘RTLIN:RTLPSECT'; 
REQUIRE "RTLIN:STRMACROS'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
PSECTS: 
ECLARE_PSECTS (STR); 
OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
LIBSSTOP ; 


JSB Linkages 


Llocate a strin 
JSB entry point 
aa, ‘esere a string 


A 
( 
D 
(JSB entry point) 


Macros for defining psects 
String macros 
System symbols 


Declare psects for STRS$ facility 


! Signal a fatal error 


'¢ 
! The following are the error codes used by this module. 


Page 


Re BS2:1 


Mant Sn Sstct te 


93:26:8) 


1882 


10 


=8ep- 


if 


¢ 
legai string class 


' Success 
Il 


: UNSIGNED (6), 
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3rOT3 ~ 12286871382 93:23 :3 LIBRTL.SRC STAGE TERE .682:1 . (3) 
; 3 9 1321 1 GLOBAL ROUTINE STRSGET1_Dx ( ! Allocate a strin : 
; 3 1 § 1 LEN ! Number of a ¥ © allocate : 
3 3 5 1 1 DESCRIP ! Descriptor to allocate into . 
s wy 3 
: 135 1326 1 tee ; 
3 : } ! FUNCTIONAL DESCRIPTION: ; 
; 138 1 : 1! Allocate a string. LEN bytes are allocated to DESCRIP, which ; 
; 139 1330 1! must be a dynamic descriptor. If the cosce igtor already : 
: 140 1337 1! has enough erorege allocated to it, nothing is done. However, ‘ 
; 141 1 ¢ 1} if the descr efor does not reference a ‘'short ate ieg it cannot ; 
; 10g ! ? : be shortened: it will be deallocated and reallocated instead. : 
; 144 1335 1 | FORMAL PARAMETERS: ; 
: 146 1 ; 1! LEN.rw.r Number of bytes to allocate in the string. ‘ 
3 es : $ : } DESCRIP.mq.r The descriptor which will be re-allocated. ; 
: 149 1320} i IMPLICIT INPUTS: 
3 130 1341 1! : 
ee i tis : 
: 138 1344 1! IMPLICIT OUTPUTS: : 
: 154 1345 1! : 
: 188 1309 1 | sae 
; 137 1348 | i COMPLETION CODES: 
; 139 30 Always SS$_NORMAL : 
; 161 1358 t SIDE EFFECTS: ; 
; 18 1354 1! May deallocate the descriptor's storage and allocate new : 
> «164 1355 1! gyorage for it. 
; 165 1 2$ 1! Signals ILLEGAL STRING CLASS if the descriptor is not dynamic. 
> 166 1357 1! Signals STRS$_INSVIRMEM if can't get dynamic string space 
; 4 : 38 : Signals STRS_FATINTERR if can't free space allocated to string 
: 169 1360 1 i-- 
: 170 1361 1 
3 17 : ¢ BEGIN 
; 8 1 MAP 
: ir , DESCRIP : REF SSTRSDESCRIPTOR; 
: 176 1 '¢ 
; HAs ! : Verify that the descriptor is a dynamic string. 
: 179 1 
; 130 ' CASE ,SSTRSCLASS (DESCRIP) FROM DSCSK_CLASS_Z TO DSCSK_CLASS_D OF 
? 1 
3% : 1 CDSCS$K_CLASS_DJ : 
3 ¥ 1 BEGIN 
; «#185 1 
s 4 1 LOCAL 
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RETURN_STATUS; ! remember status 


—_m 
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> a. 


1+ 
! Prevent AST's to change string while we are looking at it. If string is 
already being written, signal an error 
‘ SSTRSINTERLOCK (1); 
Ff ne TU STATS = SSTRSINTERLOCK_WRITE (.DESCRIP, 0)) 


4 
! This is a dynamic descriptor. If it has enough storage already, 
we need not re-allocate it. 


DIDI) et tt ee at os a 8 
SRIERFANLSSSLEREANLESES 


IF (SSTRSNEED_ALLOC ((..LEN AND 2X‘°FFFF*), SSTRSDYN_AL_LEN (DESCRIP))) 
BEGIN 
\+ 


! We must deallocate and reallocate the string. If the deallocate 
succeeds then do the reallocate. 


nN 
ono 
Ooo 


4  aaiate itdiaas = SSTRSDEALLOCATE (DESCRIP)) 
RETURN_STATUS = SSTRSALLOCATE ((..LEN AND 2X'FFFF*), DESCRIP); 
END 
st SSTRSLENGTH (DESCRIP) = (..LEN AND 2X'FFFF'); 


SSTRSINTERLOCK CLEAR (.DESCRIP, 0); 
SSTRSSIGNAL FATAL C(RETURN_STATUS) ; 


EL 


CDSCSK_CLASS_S, INRANGE, OUTRANGE) : 
is LIB$STOP™(STRS_ILLSTRCLA); 
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RETURN (SS$_NORMAL); 
END; ! end of STRSGET1_DXx 


TITLE STRSGET FREE 
SIDENT § \1-012\ 
.EXTRN LIBSSTOP STRS_NORMAL 
“EXTRN STRS_ILLSTRCLA gTRSSO, sHORT_a 
-EXTRN LIBSFREE_VM, STRS_FATIATERR 
-EXTRN STRSSINIT, STRSSVIINIT 
-EXTRN STRSSALOC_ SHORT 
-EXTRN LIBSGET_VA, STRS_INSVIRMEM 
-PSECT _STRSCODE,NOWRT, SHR, PIC,2 
007¢ 99009 ENTRY STRSGET! DX, Save R2,R3,R4,R5,R6 ; 1321 
56 000000006 00 9€ MOVAB STRS$Q_SAORT_Q, R6 ; 
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SIRHGET FREE 1 =300 7138 94:33 :3} LIBRTL.SRCISTAGE TERE 882 } 
DECL R 

) a) a coe : 

3  Bbos (R$), @0(INSQUE_ADDR) 3 

vail Rae #3 34 Ooobe eS ea TS ; 

:  PUSHAB 4(R2) ; 

04 AE " A i fi st MOVZWL (Re). 4 (SP) ; 

is 05 Fe O00Ke CALLS ie, LIBSFREE VM = ; 

a stea cE Soune BABS TURN STATOR 7S cra : 
aimnoeen es De 17$ MOVL § RETURR_STATUS, RETURN. STATUS ; 

; 8 ; OF BLBS RETURN_STATUS, 18$ 

7 000000006 5 28 eS 18$: BLBS - STRSSV INIT 798 

epetindsiy a 86 oR FS 19$:  MOVZBL S*STRS NORMAL, RETURN_STATUS ; 
04 BC Bl Sore CMPW aLEN, 24 

ee eS H OOFC BGTRU Ate 

04 f 83 OOFE ate 

4 12 00101 BNEQ ; 

3 4 0010 CLRL ‘TEMP ; 

BRB 24$ 

51 04 ee x Si 208: WOVZUL aLEN, R1 ; 

} 8 8 #7, R1 : 

2 5 ef Bore it R6. R1, REMQUE_ADDR 

2} 00 36 SF O0110 21$:  REMQUE a0 {RERGUE. ADDR, TEMP ; 
5 1D 00118 BVS 22$ a a ; 

$2 3 DO OO11A MOVL ae ALLOC_ ; 

D 11 0011D BRB 23 pte ; 

98 p O11F 22: CLRL ALLO DONE 

00006 of " 01 6 St ; CALLS Hi. STRSSALOC SHORT ; 

. : ALL ; 
ce % 36 es 3 f mn BtBe RETURR_STATUS, 27$ 
ES by BO18e 248: BBC RETURN. STATUS, 27$ 

3 E9 00134 246%: BL Stat ; 

33 08 AC 00 00137 MOVL — DESCRI tak! ; 

af O 1 MOVL TEMP, 4 

“ ay 04 135 MOV LEN. (R1) ; 

és it 128 ar ton 3 $i DESCRIP, -(SP) 

AC 4 €1 00145 258: ADDL eyrEScRIP ; 

* a § OR RR RR Be : 
me % T_VM : 

monn 9 SERB EHS RPA AIMRTOE aoe : 
3 000000006 &F p 1 MOVL #STRS_INSVIRM M, RETURN. 

? i : @LEN, @DESCRIP ; 

= BS - 6 09 185 36: HOVE RETURN. STATUS, RETURN_STATUS ; 

2, eo ae ; 

i a ; 

; : 
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GLOBAL ROUTINE STRSGET1_DX_R4 ( ' Allocate a werene 
LEN ' Number of  ‘y: re) os Locate 
DES ! Descriptor to allocate into 


grip 
) : STRSJSB_GETFRE = 


le 
FUNCTIONAL DESCRIPTION: 

i Allocate a string. LEN bytes are allocated to DESCRIP, which 
had better be a dynamic descriptor. If the descriptor already 
has enough Syorage allocated to it, nothing is done. However, 
if the descriptor dors not reference a ‘'short otriog it cannot 
be shortened: it will be deallocated and reallocated instead. 

i FORMAL PARAMETERS: 


LEN.rw.v Number of bytes to allocate in the string. 
DESCRIP.mq.r The descriptor which will be re-allocated. 


i IMPLICIT INPUTS: 

i NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i COMPLETION CODES: 

Always SS$_NORMAL 

i SIDE EFFECTS: 

i May deallocate the descriptor's storage and allocate new 
fale : IPLEGAL STRING CLASS if the descriptor is not dynamic. 


Signals STRS_INSVIRMEM if can't get dynamic string space 
Signals STRS_FATINTERR if can't free space allocated to string 


BEGIN 

MAP 
DESCRIP : REF SSTRSDESCRIPTOR; 

Verify that the descriptor is a dynamic string. 

CASE GSTRECLASS (DESCRIP) FROM DSCSK_CLASS_Z TO DSCSK_CLASS_D OF 
COSC$K GLASS_01 : 


BEG! 
LOCAL 


wm 
i- 
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RETURN_STATUS; ! remember status 


4 
! Prevent AST's to change gtring while we are looking at it. If string is 
already being written, signal an error 
SSTRSINTERLOCK (1); 
A a ian cletaieae = SSTRSINTERLOCK_WRITE (.DESCRIP, 0)) 
14 


i This is a dynamic descriptor. If it has enough storage already, 
: we need not re-allocate it. 


Peg ReMEED _ALLOC ((.LEN AND 2X°FFFF*), SSTRSDYN_AL_LEN (DESCRIP))) 
le BEGIN 
i We must deallocate and reallocate the string. If the deallocate 
succeeds then do the reallocate. 
= (RETURN_STATUS = SSTRSDEALLOCATE (DESCRIP)) 
RETURN_STATUS = SSTRSALLOCATE ((.LEN AND 2X"FFFF'), DESCRIP); 
END 
ELSE 
SSTRSLENGTH (DESCRIP) = (.LEN AND 2X‘FFFF'); 
SSTRSINTERLOCK_CLEAR (.DESCRIP, 0); 
SSTRSSIGNAL FATAL (RETURN_STATUS); 


CDSC$K_CLASS_S, INRANGE, OUTRANGE) : 
ven LIBSSTOP™ (STRS$_ILLSTRCLA); 


RETURN (SS$_NORMAL) ; 
END; ! end of STRSGET1_DX_R4 


5E OC C2 00000 STRSGET1_DX_R4:: 
uBCe 


aie. sP 
52 51 00 003 MOVL R1, R 
54 : p 0 MOVL RO, RG 
02 00 03 A2 8F 00 CASEB (DESCRIP), #0, #2 
O00F 0006 0006 E 1$: «WORD $-13.- 
L«l$’ 
000000006 Ff 14 2%: PUSHL #STRS_ILLSTRCLA 
0185 ° GootA BRW 303 - 
08 AE 01 00 10 3$: MOVL #1, RETURN_STATUS 
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at 6 1ergeR=1882 P3:283d | HAT Ok tegsFe eRe 7ks Page 1g 
53 04 A2 v0 MOVL  4(DESCRIP), R3 : 1492 

04 CLAL R : 

D TSTL sR : 

: 1 9 BNEQ = G : 

D B INCL R : 

9 D CLRL ye : 

13° «11 F BRB ; 

OOFO 8F 1 1 4$: CMPW (DescriP, #240 : 

B BLEQU 5$ : 

51 ; MOVZWL (DESCRIP), R1 : 

B BRB 6 : 

2 e Hwa )6 6th C isinine.eLock) RI : 

000000FO BF 31 01 44 6$: CHL ate . : 

04 5 E9 0004D BLBC —s«aRO, 7$ : 

} D4 2 CLRL RY : 

1311 BRB 9$ ; 

OOFO 8F 62 B1 00054 7$ CMPW © (DESCRIP), #240 : 

0 18 0059 BLEQU 8$ : 

51 62 3¢ 0058 MOV ZUL (DESCRIP), R1 : 

51 3 po 0060 8$ MOVL 3, STRING_BLOCK : 

51 FE Al 3C 0006 MGVZWL ag isiRl NG_BLOCK), R1 ; 

51 54 10 00 FD 0067 9$ CMPZ #16, CEN, R1 : 

1 906¢ BEQL «6s 14 : 

4 11 0006 BRB 15$ : 

04 0 €9 00070 10$: LBC RO, 11$ F 

51 D4 0007 CLRL RV : 

1311 0075 BRB 13$ : 

OOFO 8F 62 B1 0 77 11$ CMPW (DESCRIP), #240 : 

05 18 0007¢ BLEQU § 12$ : 

51 é 3c O007E MOVZWL (DESCRIP), R1 : 

11 00081 RB 13$ : 

51 3 pd 0083 12$: OVL  R3, STRING BLOCK : 

51 FE Al 3C 000 MOVZWL = (STRING BLOCK), R1 : 

51 54 10 00 ED O008A 13$:  CMPZV. #0, #16, CEN, R : 

1A O08 BGTRU 15$ : 

0000 31 1 14$: RW 28$ : 
50 06 A 0094 15$:  MOVZBL S*“STRS_NORMAL, RETURN_STATUS + 1500 

D5 00097 TSTL R3 : 

¢ 13 00099 BEQL 17% ; 

OOFO 8F é b 098 CMPW (DESCRIP), #240 : 

1A A OOOA BGTRU 1 : 

51 p0 A VL R3, STRING.B : 

51 FE AI ¢ A MOVZWL -2<STRING “Brock , ALLOC_LENGTH ; 

31 NX) ECL. sR ; 

51 7 8A OOOAB BICB2 #7, RI : 

1 0000000060041 9€ AE VAB_ - STRSSQ SHORT QCR1], INSQUE_ADDR : 

00 81 63 OF INSQUE (R3), SOCINSQUE_ADDR) ; 

1 A BRB 173 : 

04 A2 9F OOOBC 16$:  PUSHAB 4(DESCRIP) : 

08 AE 62 3¢ BF MOVZWL (DESCRIP), 8(SP) : 

08 Ae OF 000C PUSHAB 8(SP) ; : 

000000006 F Cé CALLS #2, LIBSFREE_VM : 

E BLBS § RETURN STATUS F 

000000006 BF »D MOVL $#STRS_FATINTERR, RETURN_STATUS : 


3; Routine Size: 388 bytes, Routine Base: _STRSCODE + 0189 


: 328 


1518 1 


N 10 
STRSGET_FREE 16-Sep-1984 01:39: AX=11 Bliss-32 V4.0-74 Page 13 
a 6 13-88-1382 94:33 :3) LIBRTL.SRCISTRGETFRE .B 2:1 oF st 
08 AF D D7 17$:  MOVL . RETURN_STATUS, RETURN_STATUS F : 
0 ‘. : H BLBS RETURN-STATUS, 1 : ; 
7 000000006 t £1 18$:  BLBS  STRS$V_INIT, 19$ + 1502 F 
000000006 0 FB OOOES CALLS #0 SYReSiNiT : ; 
G 9A OOOEF 19$:  moVZBL $*STRS NORMAL, RETURN_STATUS : ; 
OOFO &F 4 81 i CMPW LEN, #24 : : 
45 1A OOOF BGTRU § : ; 
34 83 F9 TSTW LEN F : 
4 OOFB BNEQ $ : ; 
E 04 OO0FD CLRL =«* TEMP : ; 
4 if OFF BRB 24$ : ; 
51 24 ¢ 1 20$:  MOVZWL LEN, R1 : : 
1 1 DECL RI : ; 
51 07 Ba 001 BICB2 «#7, R1 : ; 
04 AE 0000000060041 9€ o1 MOVAB STR$$Q_SHORT_QCR1], REMQUE_ADDR : ; 
51 04 BE 9E 00112 21$:  MOVAB  @REMQUE_ADDR> R1 : ; 
6E 00 BI OF 0011 REMQUE agcRT), T : : 
5 1D OIA BVS 22$ : ; 
53 01 pO 0011C MOVL #1, ALLOC_DONE ; F 
O¢ 11 OO11F BRB 23$ : ; 
ps 0121 22$: CLRL © ALLOC_DONE ; : 
7E 54 3C 00123 MOVZWL LEN, =(SP) : ; 
000000006 00 or FB 001 é CALLS #1, STRS$SALOC_SHORT : : 
05 3 £8 0012D 23$: BLBS  ALLOC_DONE, 2 : : 
28 50 «£9 01 0 BLBC = RETURR_STATUS, 27$ : ; 
DD 11 001 BRB 21$ : ; 
26 50 £9 00135 24$: BLBC = RETURN_STATUS, 27$ : ; 
04 A2 6— DO 01 MOVL TEMP, &(DESCRIP) : : 
1D 11 0013c BRB 26$ : ; 
04 A2 QF 0013E 25$:  PUSHAB 4(DESCRIP) : ; 
08 AE 54 3C 00141 MOV ZWL LEN 8(SP) : : 
08 AE 9F 00145 PUSHAB 8(SP) : 3 
000000006 00 02 FB 00148 CALLS #2, LIBSGET_V : ; 
09 50 £8 OO14F BLBS § RETURN STATOS, 26 : ; 
50 000000006 Hi DO 0132 MOVL  #STRS_INSVIRMEM, RETURN_STATUS : : 
3 11 001 BRB 27$ : : 
62 54 BO 0015B Ze: MOVW LEN, (DESCRIP) : ; 
08 AE 30 DO 0015E 27$:  MOVL RETURN. STATUS, RETURN_STATUS : ; 
Q 11 O16 BRB 29$ : 1492 ; 
62 4 80 16 288: MOVW LEN, (DESCRIP) > 1506 ; 
1 08 AE €E8 00167 29$:  BLBS RETURN_STATUS, 31$ : 1509 ; 
04 08 AE 0 00 FD O16 CMPZV #0, #3, RETURN_STATUS, #4 : : 
OA 12 001 BNEQ 31$ ; : 
08 AE DD 0017 PUSHL RETURN STATUS : ; 
000000006 0 1 FB 00176 308 CALLS #1, LIBSSTOP : ; 
1 D0 00170 31$ MOVL 1° RO : 1516 : 
E C ‘ 180 ADDL2 #12, SP : 1517 ; 
1 RSB : : 
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si STRSFREE1_DX ( H Gee secery & strin 
p 


GLOBAL ROUTI 
DESCRIP ! The descriptor to deallocate 


) 2 


lee 

FUNCTIONAL DESCRIPTION: 

i Deallocate a string, The string must by dynamic. If the 
re) 


string is ‘‘short’’, it is put on a queue of strings of the 
proper length. Otherwise it is returned to virtual memory. 


DESCRIP.wa.r The descriptor of the string to deallocate. 
i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 


' 
' 
i] 
' 
' 
i} 
' 
' 
' 
' 
i) 
' 
' 
' 
NONE 
1 
' 
' 
‘ 
' 
1 
' 
' 
' 
' 
' 
' 
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UIE BS BS BS BB EE WANNA 


WN SO OONOULWN “OO ODNOULSWN—OOONAUSWNRO 


i ROUTINE VALUE: 


WAAL 


wiv 


: COMPLETION CODES: 


ce ee ce ee ce ee ce ce ee ae ce ce el el ee ee ee ee ee ee ee ee ee ce ee cee ee eel ce ce el el ee cel el ce el ee el eel el el cel cl cel el cel ce ee ce el eel eel 


CAAA A AILPIPIPOPIPIPIPINIPIPINIPII YD st nt tn nt tt tk ht tk tk kt tt tt tt 
omome omome 


' FORMAL PARAMETERS: 
5 
5 
5 
5 
5 
5 
54 
54 
54 
54 
$2 54 
5 54 Always SS$_NORMAL 
35 54 } 
33 2 ! SIDE EFFECTS: 
6 54 May deallocate virtual storage. 
6 55 May signal STRS_FATINTERR if can't deallocate string 
22 May signal STRS_ILLSTRCLA if not a dynamic string 
64 55 -- 
65 55 
66 55 BEGIN 
67 55 
68 55 MAP 
$3 22 DESCRIP : REF SSTRSDESCRIPTOR; 
71 56 + 
375 30 : Verify that this is a dynamic descriptor. 
74 56 
R 20 SARE, FOTASCLASS (DESCRIP) FROM DSCSK_CLASS_S TO DSCSK_CLASS_D OF 
77 56 
78 56 COSCSK_CLASS_DJ : 
79 56 BEGIN 
80 2$ 
81 5 LOCAL 
3S 3 ' RETURN_STATUS; ! remember status 
57 + 
85 57 ! Prevent AST's to change string while we are looking at it. If string is 
86 57 ! already being written, signal an error 


"Sateen cae a acne ana teammate eee re sel 


STRSGET FREE 
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1b-5¢ =1984 01:39:31 AX=-11 Blisg-32 V4.0-74 
1 730p21 38 9:28:07 YOTARTL  SREISTRGETFRE. 88251 
SSTRSINTERLOCK (1); 
if aha catia = SSTRSINTERLOCK_WRITE (.DESCRIP, 0)) 


‘ BEGIN 
! Deallocate the string data. 


IF (RETURN_STATUS = S$STRSDEALLOCATE (DESCRIP)) 


e sure the pointer and Length field are zero, so the user is less 
34 to mistakenly use an old address. Also, if he calls 

+ U1 .Dx without reinitializing the descriptor it will not get 
onfused. 


END; 


SSTRSINTERLOCK CLEAR (.DESC 
SSTRSSIGNAL_FATAL (RETURN_S 


CINRANGE, OUTRANGE) : 
ume LIBSSTOP (STR$_ILLSTRCLA); 


RETURN (SS$_NORMAL); 
END; ! end of STRSFREE1_DX 


001¢ 00000 .ENTRY STRSFREE1_DX, Save R2.R3,R4 
5E 4 C3 9008 SUBL2 
5 04 AC b 0 MOVL ESCRIP, R2 
01 ot 03 Ad &F 0 9 CASEB 3(R2), #1, #1 
000C 000 E 1$: WORD $-18.- 
000000006 8F pp 9012 23: PUSHL #STRS$_ILLSTRCLA 
63 1 1 RB 
54 or po 1A 38: MOVL #1, RETURN STATUS 
: 96 A 19 MOVZBL $*STR -NORAAL , RETURN_STATUS 
5 04 =A 09 MOVL 4(R2),"R 
3 4 BEQL 46=so5$ 
OOFO 8F : i 6 CMPW 3s (2), #240 
A 1A B BGTRU 4 
51 53 p0 p MOVL 3, STRING BLOCK 
1 FE AT 3 MOVZWL =-2(STRING_BLOCK), ALLOC_LENGTH 
51 D DECL = R 
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_STRSCODE + 030D 


Routine Base: 


136 bytes, 
1 


1611 


; Routine Size: 


mm 


11 
STRSGET_FREE 1h-se 1984 01:39: AX-11 Bliss-3 
at o 127808- 1 3be 94:33:3} LIBRTL. RCIST 
GLOBAL ROUTINE STRSFREE1_DX_R4 ( ! Deallocate a atring 
433 tf ! The descriptor to deallocate 
) : STRSJSB_GETFRE = 


V4.0 
GETFR 


1e4 
FUNCTIONAL DESCRIPTION: 
i Deallocate a string. The string must by dynamic. If the 


string is ‘‘short’’, it is put on a queue of strings of the 
proper length. Otherwise it is returned to virtual memory. 


i FORMAL PARAMETERS: 


Foy oF oF ot oF of af at at ot 


FW ODDO WN OODONOUS 


DESCRIP.wa.r The descriptor of the string to deallocate. 
i IMPLICIT INPUTS: 


PAA AAAAAAAA A AAA AAA AAAS 


NAINA AINA AIA OR OPOPOPUPOPUPOPONY 2 


: 1 1 

: 1 : 1 

H 1614 1 

; 1818 4 

: 1 

: 1 § 74 

: 1620 1! 

: 1621 1! 

: 1 1! 

3; 6 1 1! 

3; 4 1 1! 

s & 1625 1! 

; 4 1 § 1! 

. & 1 1! 

> 44 1628 1! 

3 644 1629 1! NONE 

; 44 1630 1! 

: 44 1631 1°! IMPLICIT OUTPUTS: 

; 44 1 ¢ 1! 

: 445 1 1! NONF 

: 446 1634 1! 

: 447 1635 1 ! COMPLETION CODES: 

; 448 1636 1! 

; 449 1637 1! Always SS$_NORMAL. 

; 450 1638 1! 

: 451 1639 1 ! SIDE EFFECTS: 

3 $28 1640 1! 

>; 45 1641 1! May deallocate virtual storage. 

: 454 1966 1} May signal STRS_FATINTERR if can't deallocate string 

3; 455 1645 1! May signal STRS_ILLSTRCLA if not a dynamic string 

3 $28 1644 1! 

s €5 1645 1 !<- 

; 458 1646 1 

3; 459 1647 BEGIN 

: 460 1648 

3; 461 1649 MAP 

; 496 1650 DESCRIP : REF $STRSDESCRIPTOR; 

: 46 1651 

: 464 1636 '¢ 

; 465 165 ! Verify that this is a dynamic descriptor. 

: a68 163s 3 

3; 468 1656 CASE .SSTRSCLASS (DESCRIP) FROM DSCSK_CLASS_S TO DSCS$K_CLASS_D OF 

; 469 1657 SET 

: 470 1938 

3: 471 165 CDSCSK_CLASS_DJ : 

3: 47 1660 BEGIN 

: 47 1661 

: 476 1996 LOCAL 

: 475 166 RETURN_STATUS; ! remember status 

3; «47 1664 

: 47 1665 3 !+ | 

; 478 1998 ! Prevent AST's to change string while we are looking at it. If string is 

; 479 166 ! already being written, signal an error 

: 480 1668 3 i- | 
j 


7 
F 11 
STRSGET_FREE 5ep-1984 AX=11 Bliss-32 v4.0-74 p 18 
7-01 ee teets Pik Poet tS TT het hd pT ott Pek er (0) | 
: 1669 SSTRSINTERLOCK (1); 
: Q ; 1858 : 
; 4 1672 4 IF _(RETURN_STATUS = SSTRSINTERLOCK_WRITE (.DESCRIP, 0)) 
: 485 1678 & BEGIN | 
; § 1674 4 I+ | 
; rt tf 192? ? ‘ Deallocate the string data. 
: 489 1879 
; 490 1678 . IF (RETURN_STATUS = S$STRSDEALLOCATE (DESCRIP)) | 
: 49 16 9 " ke sure the pointer and Length field are zero. so the user is less 
; 49 1 ! Ly to mistakenly use an old address. Also, if he calls 
3 494 16 ¢ : STREG T1_DX without reinitializing the descriptor it witl not get 
: t3e 1? Z ; _confused. | 
; 198 1ebe t THEN GIN | 
: 499 1889 5 DESCRIP DSCSu_LENGTH] = 0 
: 500 1688 a DESCRIP CDSCSA-~POINTER) = 0; 
: 501 1689 4 END; | 
: 308 iso) 3 END | 
: 504 169 ‘ 
: 505 1898 SSTRSINTERLOCK_CLEAR (.DESCRIP, 0); | 
; 206 1694 $STRSSIGNAL_FATAL (RETURN_ STATUS) ; | 
: 508 1696 ‘ 
: 509 1697 CINRANGE, OUTRANGE) : 
3 310 169% LIBSSTOP (STR$_ILLSTRCLA); 
: 51 1700 : 
; 21 1701 RETURN (SS$_NORMAL); 
> 514 1702 1 END; ! end of STRSFREE1_DX_R4 
SE 04 C2 00000 STRSFREE1_DX_R4:: 
SOBL2 is, SP : 1612 
52 50 00 00003 MOVL RO, R2 : 
01 01 03 A2 BF 00006 CASEB a 1, #1 : 1656 
000¢ 0004 0008 1$: «WORD ; | 
000000006 af D OF 2%: PUSHL aSTRS_ ILLSTRCLA > 1698 
F 1 15 BRB 7 ; 
54 oi po 17 3$ MOVL if TURN_STATUS > 1671 
9 96 A OOO1A MOVZBL S$* NORMAL, RETURN_STATUS : 1678 
5 04 A2 Dd 1 VL SCBESCRIPD, R$ : 
3¢ «(1 BEQL bt 3 
OOFO 8F 62 Bi CMPW (DESCRIP), #240 F 
1A 1A BGTRU 4 : 
1 53 D0 A MOVL 3, STRING BLOCK : 
1 FEAT : MOVZWL = nee -BLOCK), ALLOC_LENGTH : 
31 DECL = : 
51 7 BA BICB2 «a7, ; 


STRSGET_FREE 
O18 2 


04 


Name 
_STRSCODE 


File 


3; Routine Size: 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 


18-5 Sep-1984 AX-11 Bliss-32 V4.0- 
1 ety 7 93:28 3} LIBRTL.SRCIJSTRGETFRE. i} 2:1 
51 0000000060041 9€ 6 OVAB STR$$Q_SHORT_Q Ri. NSQUE_ADDR 
00 «81 é ge s INSQUE (R3), 38 ¢oReace _ADbR a) - 
04 Ag F 00044 4$: PUSHAB 4 (DESCRIP) 
4 ge SE Botay = BOLAA RESSRUP?. sm 
000000006 : ; F 4 CALLS #2, LIBSFREE_VM 
E BLBS § RETURN STATUS 
0 000000006 BF »D MOVL &#STR$_FATINT Tehe, RETURN_ STATUS 
4 D F S$: MOVL RETURA_ STATUS. RETURN. STATUS 
05 E BLBC = RETURN-STATUS 
62 84 CLRW © (DESCRIP) 
04 Ad 04 CLRL 4 (DESCRIP) 
19 4 £8 A 6$ BLBS RETURN STATU 8$ 
0 0 Fo CMPZV #Q, #3, RETURN STATUS, #4 
} DD 7 OE SF TURN STATUS 
swe 1 8 S0ure GE: GautS i geet 
4 ¢0 9080 ; ADDL2 #4. SP 
05 0008 RSB 
Routine Base: _STRSCODE + 0395 


! end of module STRSGET_FREE 


PSECT SUMMARY 
Bytes Attributes 
1049 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


agree aaa Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
0 


9776 9 


581 


00:00.7 


Bete Se Se He Se Ge Fe Ge Fe Ge Se Fe Se Ge Ge Se Se Se Se Ge 


sIREgET Fret 1$rBeor]98t QUERHL MeN eLegchz ytaOe74g, | Page (20 
3 COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:STRGETFRE/OBJ=0BJ$: STRGETFRE MSRC$: STRGETFRE/UPDATE=(ENHS$: STRGETFRE 


Size: 1049 code + 0 data bytes 
Run Time: iy 


Elapsed Time: 
Lines/CPU Min: 


Lexemes/CPU-Min: 36296 
ry Used: 156 pages 
3; Compilation Complete 
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